home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 October
/
EnigmA AMIGA RUN 31 (1998)(G.R. Edizioni)(IT)[!][issue 1998-10].iso
/
earkit
/
browser
/
ibrowsescripts
/
install.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-09-22
|
3KB
|
111 lines
/* Install.rexx
*/
OPTIONS RESULTS
OPTIONS FAILAT 10
say show('Libs')
addlib("rexxreqtools.library", 0, -30, 0)
lib= show('Libs',"rexxreqtools.library")
open('ibstart','CON:60/100/350/80/IBStart/cds')
IF EXISTS('RAM:ENV/IBS') THEN DO
call writeln 'ibstart','Could not find a IBrowse assign!!!'
call writeln 'ibstart','Please enter the path to the IBrowse directory'
call writeln 'ibstart','(Ex: "SYS:Surf/IBrowse" )'
DO FOREVER
open('input','ibstart','R')
IF lib=0 THEN path=readln('ibstart')
IF lib=1 THEN DO
address 'COMMAND'
wait 2
path = rtfilerequest('SYS:', , "Pick IBrowse directory",,"rtfi_flags = freqf_nofiles")
if rtresult==0 then exit
END
say path
all=path||'/ibrowse'
If exists(all) then break
call writeln 'ibstart','Could not find IBrowse in'
call writeln 'ibstart',path
call writeln 'ibstart','Please enter the path to the IBrowse directory'
END
say hej
ADDRESS 'COMMAND'
IF ~EXISTS('s:userstartup.preIBs') THEN 'copy S:user-startup S:user-startup.preIBs'
ok=OPEN('user','S:user-startup','A')
ok=WRITELN('user','assign IBROWSE: '||path||' ;Added by IBrowseScripts')
'assign IBROWSE:' path
END
cls
ADDRESS 'COMMAND'
IF ~EXISTS('RAM:ENV/IBS') THEN call writeln 'ibstart','Ibrowse assign found. Skipped that part'
IF ~EXISTS('IBrowse:REXX') THEN DO
call writeln 'ibstart','Ibrowse/REXX not found. Making REXX Directory'
'Makedir IBrowse:REXX'
END
call writeln 'ibstart','Now copying files to IBrowse:Rexx'
'Copy >CON: rexx/#? Ibrowse:rexx/'
IF ~lib THEN DO
call writeln 'ibstart','Could not find rexxreqtools.library!!!'
call writeln 'ibstart','See guide.html for a Url'
call writeln 'ibstart','(Press "Enter" to continue )'
open('input','ibstart','R')
ok=readln('ibstart')
END
IF ~EXISTS("sys:rexxc/RX") THEN DO
call writeln 'ibstart','Could not find Sys:rexxc/RX'
call writeln 'ibstart','Reinstall from your workbench-diskettes'
call writeln 'ibstart','(Press "Enter" to continue )'
open('input','ibstart','R')
ok=readln('ibstart')
END
IF EXISTS('RAM:ENV/MIS') THEN DO
call writeln 'ibstart','Could not find a Miami assign!!!'
call writeln 'ibstart','Please enter the path to the Miami directory'
call writeln 'ibstart','(Ex: "SYS:Surf/Miami" )'
call writeln 'ibstart','("Enter" to skip this part. )'
DO FOREVER
IF lib=0 THEN path=readln('ibstart')
IF lib=1 THEN path = rtfilerequest('SYS:', , "Pick Miami directory",,"rtfi_flags = freqf_nofiles")
IF path='' THEN BREAK
say path
all=path||'/miami'
If exists(all) then break
call writeln 'ibstart','Could not find Miami in'
call writeln 'ibstart',path
call writeln 'ibstart','Please enter the path to the Miami directory'
END
IF path~='' THEN DO
ADDRESS 'COMMAND'
IF ~EXISTS('s:userstartup.preIBs') THEN 'copy S:user-startup S:user-startup.preIBs'
ok=OPEN('user','S:user-startup','A')
ok=WRITELN('user','assign Miami: '||path||' ;Added by IBrowseScripts')
'assign Miami:' path
END
END
IF ~EXISTS('RAM:ENV/MIS') THEN call writeln 'ibstart','Miami assign found. Skipped that part'
call writeln 'ibstart','Now copying file to Miami:'
'Copy >CON: IBrowse:rexx/miamistartyam.rexx Miami:'
call writeln 'ibstart','All done! Now edit your IBrowse/Yam/Miami Settings'
call writeln 'ibstart','as shown by guide.html. '
call writeln 'ibstart','( Just drag`n-drop it on IBrowse )'
'wait 10'